home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 23 / 64er_Magazin_Sonderheft_23_19xx_Markt__Technik_de_Disk_1_of_2_Side_B.d64 / statik 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  17KB  |  590 lines
  1. 1 rem ---------------------------------
  2. 2 rem -          stadi v1.1           -
  3. 3 rem -                               -
  4. 4 rem -      (c) by ingo tack         -
  5. 5 rem -        4630 bochum 6          -
  6. 6 rem ---------------------------------
  7. 7 :
  8. 12 i=i+1
  9. 14 if i=1thenload"erw.1",8,1
  10. 90 :
  11. 91 rem --------------------------------
  12. 92 rem -         titelbild            -
  13. 93 rem --------------------------------
  14. 99 :
  15. 100 poke 53280,0 :poke 53281,0 :print chr$(14 )chr$(147);
  16. 101 print"[158][176]";:for z=1 to 38:print"{$60}";:next
  17. 102 print"[174]{$7d}   Stahlbetonbemessung von Stuetzen   [146]{$7d}";
  18. 103 print"{$7d}     mit einer Schlankheit <= 70      [146]{$7d}";
  19. 104 print"[171]";:for z=1 to 38:print"{$60}";:next
  20. 105 print"[179]{$7d}   Das Programm berechnet folgende    [158]{$7d}";
  21. 106 print"{$7d}"spc(12)"Druckglieder:"spc(13)"[158]{$7d}";
  22. 107 print"[171]";:for z=1 to 38:print"{$60}";:next
  23. 108 print"[179]{$7d}   - zentrisch belastete Stuetezen    [158]{$7d}";
  24. 109 print"{$7d}"spc(11)"ohne Knickgefahr"spc(11)"[158]{$7d}";
  25. 110 print"[221]   -  bei [194]eanspruchung durch [194]iege-  [158][221]";
  26. 111 print"{$7d}"spc(7)"momente mit Normalkraft"spc(8)"[158]{$7d}";
  27. 112 print"[221]"spc(38)"[221][221]  [196]ie [203]nicksicherheit wird nach den   [158][221]";
  28. 113 print"[221]        [197]uler [198]aellen  ermittelt"spc(6)"[158][221]";
  29. 114 print"{$7d}   (bei unverschieblichen Systemen)   {$7d}";
  30. 115 print"{$7d}"spc(38)"{$7d}{$7d}    Die Berechnungen erfolgen nach    {$7d}";
  31. 116 print"{$7d}"spc(15)"DIN 1045"spc(15)"{$7d}";
  32. 117 print"[171]";:for z=1 to 38:print"{$60}";:next
  33. 118 print"[179]{$7d}"spc(11)"[159](c) by Ingo Tack"spc(11)"[158]{$7d}";
  34. 119 print"{$7d}"spc(14)"[159]Juli 1986"spc(15)"[158]{$7d}";
  35. 120 print"[173]";:for z=1 to 38:print"{$60}";:next
  36. 121 print"[189]";
  37. 130 forw=1to5000:nextw
  38. 150 gosub9960
  39. 151 :
  40. 152 rem -------------------------------
  41. 153 rem -        eingabemenue         -
  42. 154 rem -------------------------------
  43. 155 :
  44. 156 gosub10000
  45. 160 gosub5000 :rem baustoffeingabe
  46. 163 gosub10000
  47. 165 gosub5100 :rem querschnitt
  48. 170 gosub10000
  49. 175 gosub5200 :rem schnittkraefte
  50. 181 goto 5400 :rem eingabefehler
  51. 182 gosub10000
  52. 185 gosub5300 :rem frage auf ksn
  53. 190 if ksn=0then m0=abs(m2):d2=d:goto355
  54. 194 :
  55. 195 rem -------------------------------
  56. 200 rem -       berechnung sk         -
  57. 201 rem -------------------------------
  58. 202 :
  59. 205 ifa2<>0then225
  60. 210 ifa1=1then l=s1:goto230
  61. 215 ifa1=2then l=s2:goto230
  62. 220 ifa1=3then l=s3:goto230
  63. 225 if(a1=1anda2=2) or (a1=2anda2=1) thens=s1+s2:goto229
  64. 226 if(a1=2anda2=3) or (a1=3anda2=2) thens=s2+s3:goto229
  65. 227 if(a1=1anda2=3) or (a1=3anda2=1) thens=s1+s3:goto229
  66. 229 l=s/2
  67. 230 gosub10000
  68. 235 sys aus,5,5,"[196]er [203]orrekturwert [194]eta fuer das"
  69. 240 sys aus,5,7,"[211]ystem lautet :";:printl
  70. 241 print"[158]"
  71. 245 sys aus,5,10,"[215]ie lautet die [203]nicklaenge h  [m] "
  72. 250 sys aus,15,12,"[211]k = ";:sys ein,5,e2$,a$:sk=val(a$)
  73. 255 sk=sk*l
  74. 260 sys aus,5,15,"[196]ie [203]nicklaenge bezogen auf das"
  75. 265 sys aus,5,17,"[211]ystem betraegt :";:printsk;"m"
  76. 290 :
  77. 291 rem -------------------------------
  78. 292 rem -  berechnung der schlankheit -
  79. 293 rem -------------------------------
  80. 294 :
  81. 300 l1=sk/(0.289*(b/100))
  82. 305 l2=sk/(0.289*(d/100))
  83. 306 ifl1>l2thenl=l1
  84. 307 ifl2>=l1thenl=l2
  85. 308 if abs(m2)=0andabs(m1)=0thengl=45:goto315
  86. 309 if l> 70then5500
  87. 310 gl=45-25*m1/m2
  88. 315 if l1>glthen l=l1:d2=b:goto340
  89. 320 if l2>glthen l=l2:d2=d:goto340
  90. 321 if f1=1then2000
  91. 325 goto 500:rem regelbemessung
  92. 326 :
  93. 327 rem -------------------------------
  94. 328 rem -      berechnung von mo      -
  95. 329 rem -------------------------------
  96. 330 :
  97. 340 if abs(m2)=0 and abs(m1)=0 then m0=0:goto355
  98. 345 if abs(m2)<>0and abs(m1)=0 then m0=0.6*abs(m2):goto355
  99. 350 m0=0.65*m2+0.35*m1
  100. 355 e0=m0/abs(n):vg=e0/(d2/100)
  101. 360 if vg>=3.5then5600
  102. 361 if f1=1 and ksn =0 then 2000
  103. 362 if ksn =0 then 500
  104. 365 :
  105. 370 rem -------------------------------
  106. 371 rem -  berechnung zusatzausmitte  -
  107. 372 rem -------------------------------
  108. 373 :
  109. 380 ifvg<=0 or vg<0.3 then f= d2*((l-20)/100)*sqr(0.10+vg):goto400
  110. 385 ifvg<=0.3orvg<2.5 then f= d2*((l-20)/160):goto400
  111. 390 ifvg<=2.5orvg<3.5 then f= d2*((l-20)/160)*(3.5-vg)
  112. 395 :
  113. 396 rem -------------------------------
  114. 397 rem -      berechnung max m       -
  115. 398 rem -------------------------------
  116. 399 :
  117. 400 m=m0+abs(n)*(f/100)
  118. 495 :
  119. 496 rem -------------------------------
  120. 497 rem -    regelbemessung teil 1    -
  121. 498 rem -------------------------------
  122. 499 :
  123. 500 if m0<>0 or  m1<>0 or  m2<>0 or m<>0  then 700 :rem   regelbemessung teil 2
  124. 501 :
  125. 505 rem ***  gebundene bemessung    ***
  126. 506 :
  127. 510 nb=b*d*((br/10)/2.1)
  128. 515 ns=abs(n)-nb
  129. 520 if ns<0then 540
  130. 525 ea=ns/((bs/10)/2.1)
  131. 530 a1=ea/2:goto 2000
  132. 531 :
  133. 535 rem *** stat. erf. querschnitt  ***
  134. 536 :
  135. 540 if bs=220thengr=((br/10)/2.1)/.008+10.5:goto 550
  136. 545 gr=((br/10)/2.1)/.008+20
  137. 550 ea=abs(n)/gr
  138. 555 a1=ea/2:f1=1:goto 2000
  139. 557 :
  140. 558 rem ***     freie bemessung     ***
  141. 559 :
  142. 560 gosub10000
  143. 565 sys aus,5,6,"[194]ewehrungsanteil :"
  144. 570 sys aus,5,7,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  145. 574 sys aus,5,9 ,"0,8 % - 1,5 %  wirtschaftlich"
  146. 576 sys aus,5,11,"1,5 % - 3,0 %  staerker bewehrt"
  147. 578 sys aus,5,13,"3,0 % - 6,0 %  stark bewehrt"
  148. 590 sys aus,5,17,"[194]ewehrungsanteil mue =>";
  149. 595 sys ein,3,e2$,a$:p=val(a$)/100
  150. 600 gi=((br/10)/2.1)+p*((bs/10)/2.1)
  151. 605 ab=abs(n)/gi
  152. 610 gosub10000
  153. 615 sys aus,5,7,"[211]oll ein [205]ass des [209]uerschittes"
  154. 620 sys aus,8,9,"vorgegeben werden (j/n)? "
  155. 625 sys aus,5,13,"[215]ird  ein ' n ' eingegeben, so"
  156. 630 sys aus,5,15,"wird die [193]bmessung der [211]tuetze"
  157. 635 sys aus,12,17,"  quadratisch !!"
  158. 640 geta$:ifa$=""then640
  159. 645 ifa$="n"then 670
  160. 650 ifa$<>"j"then640
  161. 655 sys aus,5,20,"[211]eitenlaenge [cm] b = ";:
  162. 660 sys ein,5,e2$,a$
  163. 665 b=val(a$)
  164. 667 d=ab/b
  165. 669 goto675
  166. 670 b=sqr(ab):d=b
  167. 675 b=int(b+.5):d=int(d+.5)
  168. 676 gr=((br/10)/2.1)/.008+20
  169. 680 ea=p*ab:a1=ea/2:f1=2:goto 182
  170. 690 :
  171. 691 rem -------------------------------
  172. 692 rem -    regelbemessung teil 2    -
  173. 693 rem -------------------------------
  174. 694 :
  175. 695 rem ***   bestimmung vom max m  ***
  176. 700 ifabs(m2)>mthen mx=abs(m2):goto710
  177. 705 mx=abs(m)
  178. 710 d2=(d1*2)/d
  179. 715 gosub10000
  180. 720 sys aus,7,5,"[194]iegung mit [206]ormalkraft und"
  181. 722 sys aus,12,6,"kleiner [193]usmitte"
  182. 723 sys aus,5,8,"[197]s ist das [205]omenten-[206]ormalkraft"
  183. 725 sys aus,10,9,"[196]iagramm d1/d = ";
  184. 727 printusr(d2),5,2
  185. 730 sys aus,15,10,"[158]zu benutzen."
  186. 735 n1=(n *.001)/((b*d*.0001)*br)
  187. 740 m1=(mx*.001)/((b*d*d*.000001)*br)
  188. 745 ifabs(m1)<0.045then800
  189. 750 ifabs(n1)<0.1 then800
  190. 755 sys aus,5,12,"m = ";:printusr(m1),6,3:print"[158]"
  191. 760 sys aus,5,14,"n = ";:printusr(n1),6,3:print"[158]"
  192. 765 sys aus,5,16,"[194]itte entnehmen [211]ie aus dem"
  193. 770 sys aus,8,18,"[196]iagramm [215]01=[215]02 = ";
  194. 775 sys ein,5,e2$,a$
  195. 777 w=val(a$)
  196. 779 mue=w/((bs/10)/1.75)
  197. 780 a1=mue*b*d:ea=2*a1
  198. 785 goto2000
  199. 790 :
  200. 791 rem *** stat. erf. querschnitt  ***
  201. 792 :
  202. 800 sys aus,5,12,"[196]ie [215]erte m und n sind unguenst-"
  203. 802 sys aus,5,13,"ig. => stat. erf. [209]uerschnitt":print"
  204. 810 m2[178]m1[172]5:n2[178]n1[172]5:m3[178]m1[172]10:n3[178]n1[172]10
  205. 815 [158] aus, 5,15,"m x 1 =";:[153][183](m1),6,3
  206. 816 [158] aus,20,15,"n x 1 =";:[153][183](n1),6,3
  207. 817 [158] aus, 5,16,"m x 5 =";:[153][183](m2),6,3
  208. 818 [158] aus,20,16,"n x 5 =";:[153][183](n2),6,3
  209. 819 [158] aus, 5,17,"m x10 =";:[153][183](m3),6,3
  210. 820 [158] aus,20,17,"n x10 =";:[153][183](n3),6,3
  211. 825 [158] aus,5,19,"atnus str$iagramm n$ = ";
  212. 830 [158] ein,5,e2$,a$
  213. 832 n1[178][197](a$):n1[178][182](n1)
  214. 835 w[178].004[172]((bs[173]10)[173]1.75)
  215. 840 b1[178]([182](n)[172].001)[173](n1[172](d[173]100)[172]br)
  216. 845 a1[178].004[172]d[172]b1[172]100
  217. 847 ea[178]2[172]a1
  218. 850 [137]2000
  219. 990 :
  220. 1991 [143] ------------------------------
  221. 1992 [143] -     berechnung bewehrung   -
  222. 1993 [143] ------------------------------
  223. 1994 :
  224. 2000 [139] b[179][178]40 [175] d[179][178]40 [167]za[178]4:[137]2045
  225. 2001 [139] b[179][178]40 [167] z1[178]2 :[137]2018
  226. 2002 [139] d[179][178]40 [167] z2[178]2 :[137]2005
  227. 2003 :
  228. 2005 z[178]1
  229. 2010 z[178]z[170]1
  230. 2015 [139](b[173]z)[179][178]30[167]z1[178]z[170]1:[137]2017
  231. 2016 [137]2010
  232. 2017 [139] z2[179][177]0[167]2030
  233. 2018 z[178]1
  234. 2019 z[178]z[170]1
  235. 2020 [139](d[173]z)[179][178]30[167]z2[178]z[170]1:[137]2030
  236. 2025 [137]2019
  237. 2030 za[178](z1[170]z2)[172]2:za[178]za[171]4
  238. 2035 :
  239. 2042 [143] ***     best. erf. as      ***
  240. 2043 :
  241. 2045 [129] ds[178]1.2[164]1.6[169].2
  242. 2050 [141]2500:at[178]za[172]sa
  243. 2055 [139]at[177][178]ea[167] 2600
  244. 2060 [130]
  245. 2065 ds[178]2.0:[141]2500:at[178]za[172]sa:[139]at[177][178]ea[167]2600
  246. 2070 ds[178]2.5:[141]2500:at[178]za[172]sa:[139]at[177][178]ea[167]2600
  247. 2075 ds[178]2.8:[141]2500:at[178]za[172]sa:[139]at[177][178]ea[167]2600
  248. 2080 za[178]za[170]2:[137]2045
  249. 2490 :
  250. 2491 [143] ***   ber. kreisflaeche    ***
  251. 2492 :
  252. 2500 sa[178]([255][172]ds[172]ds)[173]4:[142]
  253. 2590 :
  254. 2591 [143] ------------------------------
  255. 2592 [143] -      bemessung buegel      -
  256. 2593 [143] ------------------------------
  257. 2594 :
  258. 2600 [139] ds[178]1.2[176]ds[178]1.4[176]ds[178]16[167]bu[178]6:[137]2620
  259. 2605 [139] ds[178]2.0[176]ds[178]2.5[167]bu[178] 8:[137]2620
  260. 2610 bu[178]10
  261. 2620 c1[178]12[172]ds:c1[178][181](c1):c2[178]2[172]c1
  262. 2700 [137]3000
  263. 2990 :
  264. 2991 [143] ------------------------------
  265. 2992 [143] -   ausgabe auf bildschirm   -
  266. 2993 [143] ------------------------------
  267. 2994 :
  268. 3000 [141]10000
  269. 3005 [158] aus,5,4,"valingabewerte :"
  270. 3006 [158] aus,5,5,"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  271. 3010 [158] aus,5,6,"peekaustoffe :"
  272. 3011 [158] aus,5,7,"-----------"
  273. 3015 [139]bs[178]220 [167]b1$[178]"peek(NULL)t 220/340":s$[178]" right$right$"
  274. 3016 [139]bs[178]420 [167]b1$[178]"peek(NULL)t 420/500":s$[178]"right$right$right$"
  275. 3017 [139]bs[178]500 [167]b1$[178]"peek(NULL)(NULL) 500/550":s$[178]"right$(NULL)"
  276. 3020 [158] aus,5,8, "peeketon peek";:[153]be
  277. 3025 [158] aus,5,9 ,"(NULL)tahl ";:[153]b1$
  278. 3030 [158] aus,5,11,"(NULL)uerschnitt :"
  279. 3031 [158] aus,5,12,"-------------"
  280. 3035 b2$[178]" [cm]":b3$[178]" [k(NULL)]":b4$[178]" [k(NULL)m]":b7$[178]" [cm2]":b8$[178]"[mm]"
  281. 3040 [158] aus,5,13,"b  = ";:[153][183](b),8,2;:[153]b2$
  282. 3041 [158] aus,5,14,"d  = ";:[153][183](d),8,2;:[153]b2$
  283. 3042 [158] aus,5,15,"c  = ";:[153][183](d1),8,2;:[153]b2$
  284. 3050 [158] aus,5,17,"(NULL)chnittkraefte :"
  285. 3051 [158] aus,5,18,"----------------"
  286. 3052 [158] aus,5,19,"(NULL)  = ";:[153][183](n),8,2;:[153]b3$
  287. 3055 [158] aus,5,20,"(NULL)2 = ";:[153][183](e1),8,2;:[153]b4$
  288. 3056 [158] aus,5,21,"(NULL)1 = ";:[153][183](e2),8,2;:[153]b4$
  289. 3057 [158] aus,12,23,"< weiter mit len= >"
  290. 3058 [146] 653,2
  291. 3060 [139] ksn[179][177]1[167] 3500
  292. 3061 [141]10000
  293. 3065 [158] aus,12,4,"(NULL)(NULL)(NULL) erforderlich !!"
  294. 3066 [158] aus,5,6,"grenz (NULL)amda    = ";:[153][183](gl),2,0
  295. 3067 [158] aus,5,7,"      (NULL)amda    = ";:[153][183]( l),2,0
  296. 3072 b6$[178]" [m]"
  297. 3075 [158] aus,5,11,"(NULL)nicklaenge (NULL)k = ";:[153][183](sk),6,2;:[153]b6$
  298. 3080 [158] aus,5,14,"(NULL)o               ";:[153][183](m0),6,2;:[153]b4$
  299. 3081 [158] aus,5,17,"(NULL)usatzausmitte   ";:[153][183](f ),6,2;:[153]b2$
  300. 3085 [158] aus,5,20,"max (NULL)          = ";:[153][183](m) ,6,2;:[153]b4$
  301. 3087 [158] aus,12,23,"< weiter mit len= >"
  302. 3090 [146] 653,2
  303. 3500 [141]10000
  304. 3505 [158] aus,5,4,"(NULL)ahl der peekewehrung :"
  305. 3510 [158] aus,5,5,"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  306. 3520 [158] aus,5,7,"erf.       atns = ";:[153][183](ea),6,2;b7$
  307. 3525 [158] aus,5,9,"gew. peekewehrung :"
  308. 3526 [158] aus,5,10,"----------------"
  309. 3530 [158] aus,5,11,"   ";za;s$;" ds=";ds[172]10;b8$:[153]"sys"
  310. 3535 [158] aus,5,13,"vorh.      atns = ";:[153][183](at),6,2;b7$
  311. 3545 [158] aus,5,17,"peekuegelbemesung :"
  312. 3550 [158] aus,5,18,"----------------"
  313. 3552 [158] aus,5,19,"peekuegel dsbu   = ";bu;b8$
  314. 3553 [158] aus,5,21,"sbu = ";:[153][183](c1),2,0;b2$;"  sbu' = ";
  315. 3555 [153][183](c2),2,0;b2$
  316. 3560 [158] aus,12,23,"< weiter mit len= >"
  317. 3565 [146] 653,2
  318. 3570 as[178]at
  319. 3580 [139]f1[179][177]1[167]3585
  320. 3581 zn[178]as[172]gr
  321. 3582 [137]3605
  322. 3585 [139]1[179][177]2[167]3600
  323. 3586 zn[178]ab[172]gr[170](bs[173]2.1)[173]10[172]as
  324. 3587 [137]3605
  325. 3600 zn[178]d[172]b[172]((br[173]10)[173]2.1)[170]as[172]((bs[173]10)[173]2.1)
  326. 3605 mue[178](as[173](b[172]d))[172]100
  327. 3610 [141]10000
  328. 3615 [158] aus,5,5,"(NULL)ulaessige peekelastung :"
  329. 3620 [158] aus,5,6,"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  330. 3621 [158] aus,5,9,"zul. (NULL) = ";:[153][183](zn),8,2;b3$
  331. 3625 [158] aus,5,12,"peekewehrungsgehalt :"
  332. 3630 [158] aus,5,13,"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  333. 3635 [158] aus,5,16,"(NULL)ue    = ";:[153][183](mue),8,2;" [%]"
  334. 3640 [158] aus,12,23,"< weiter mit len= >"
  335. 3645 [146] 653,2
  336. 3650 [141]10000
  337. 3655 [158] aus,5,10,"(NULL)ollen die valrgebnisse auf einem"
  338. 3660 [158] aus,6,12,"str$rucker  ausgegeben  werden ?"
  339. 3665 [161]a$:[139]a$[178]""[167]3665
  340. 3670 [139]a$[178]"j"[167]4000
  341. 3675 [139]a$[179][177]"n"[167]3665
  342. 3680 :[156]:[137]150
  343. 3990 :
  344. 3991 [143] ------------------------------
  345. 3992 [143] -   druckerausgabe mps 801   -
  346. 3993 [143] ------------------------------
  347. 3994 :
  348. 4000 [159]4,4:[151]768,185:[152]4:[160]4:[151]768,139
  349. 4005 [139] st[179][177][171]128[167]4050
  350. 4010 [141]10600
  351. 4015 [158] aus,7,17,"str$rucker bitte einschalten !!sys"
  352. 4020 [129]w[178]1[164]1000:[130]:[137]4000
  353. 4050 [159]1,4,7
  354. 4055 [152]1,[199](14)[199](16)"08(NULL)tahlbetonbemsessung : (NULL)tuetzen"
  355. 4056 [152]1,[199](15)[199](16)"23(bei unverschieblichen (NULL)ystemen)"
  356. 4064 :
  357. 4065 [143] ***    sonderzeichen       ***
  358. 4066 :
  359. 4068 [143] lamda
  360. 4075 [131]225,154,132,136,240,128
  361. 4078 :
  362. 4080 [143] durchmesser
  363. 4082 [131]156,162,255,162,156,128
  364. 4085 :
  365. 4095 [129]i[178]1[164]6
  366. 4100 [135] x:s1$[178]s1$[170][199](x):[130]i
  367. 4105 [129]i[178]1[164]6
  368. 4110 [135] x:s2$[178]s2$[170][199](x):[130]i
  369. 4115 [141]10000
  370. 4120 [158] aus,5,5,"(NULL)ositions-(NULL)r. : ";
  371. 4122 [158] ein,4,e2$,a$:po[178][197](a$)
  372. 4125 [158] aus,5,7,"(NULL)osition      : ";
  373. 4127 [158] ein,20,e3$,p$
  374. 4130 [152]1,[199](10)[199](10)[199](10)
  375. 4132 [152]1,"   (NULL)ositions-(NULL)r. : ";po;"       (NULL)osition   : ";p$
  376. 4134 [152]1,[199](10)
  377. 4135 [152]1,"   peekaustoffe :"
  378. 4136 [152]1,"   tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  379. 4140 [152]1,"   peeketon :  peek";be;"      (NULL)tahl : ";b1$
  380. 4142 [152]1
  381. 4144 [152]1,"   (NULL)uerschnitt :"
  382. 4145 [152]1,"   tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  383. 4147 [152]1,"   b = ";[183](b),8,2;b2$;"     ";"d  = ";[183](d),8,2;b2$;"     ";
  384. 4150 [152]1," c  = ";[183](d1),8,2;b2$
  385. 4152 [152]1
  386. 4156 [152]1,"   (NULL)chnittkraefte :"
  387. 4160 [152]1,"   tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  388. 4166 [152]1,"   (NULL) = ";[183](n),8,2;b3$;"     ";"(NULL)2 = ";[183](e1),8,2;b4$;"     ";
  389. 4167 [152]1,"(NULL)1 = ";[183](e2),8,2;b4$
  390. 4168 [152]1,[199](10)
  391. 4170 [139]ksn[179][177]1[167] 4300
  392. 4175 [152]1,[199](16)"15(NULL)nicksicherheitsnachweis ist erforderlich !!"
  393. 4176 [152]1,[199](16)"15tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("[199](10)
  394. 4180 [152]1,"   chr$renz = ";
  395. 4182 [152]1,[199](8)s1$;
  396. 4183 [152]1,[199](15);[183](gl),2,0;"   tantan>   vorh. "[199](8)s1$;
  397. 4184 [152]1,[199](15)" = ";[183](l),2,0
  398. 4185 [152]1,[199](10)"   (NULL)nicklaenge  (NULL)k = ";[183](sk),6,2;b6$;[199](10)
  399. 4186 [152]1,"   (NULL)o = ";[183](m0),6,2;b4$;"   ";
  400. 4187 [152]1,"(NULL)usatzausmitte f = ";[183](f),6,2;b2$;
  401. 4190 [152]1,"  max (NULL) = ";[183](m),6,2;b4$
  402. 4195 [152]1
  403. 4300 [152]1,[199](14)[199](16)"17(NULL)ahl der peekewehrung :"
  404. 4305 [152]1,[199](16)"17tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("[199](15)[199](10)
  405. 4310 [152]1,"   erf.       atns = ";[183](ea),6,2;b7$
  406. 4320 [152]1
  407. 4325 [152]1,"   gew. peekewehrung :"
  408. 4326 [152]1,"   tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  409. 4330 [152]1,[199](14)"            ";za;" ";s$;"  "[199](8)s2$;
  410. 4331 [152]1,[199](14)" ";ds[172]10;b8$[199](15)[199](10)
  411. 4335 [152]1,"   vorh.      atns = ";[183](at),6,2;b7$
  412. 4340 [152]1,[199](10)
  413. 4345 [152]1,"   peekuegelbemessung :"
  414. 4346 [152]1,"   tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  415. 4350 [152]1,"   peekuegel "[199](8)s2$;
  416. 4351 [152]1,[199](15)" ";bu;b8$
  417. 4360 [152]1,"   sbu    = ";[183](c1),2,0;b2$;"     sbu'    = ";[183](c2),2,0;b2$
  418. 4365 [152]1
  419. 4370 [152]1,"   (NULL)ulaessige peekelastung :"
  420. 4371 [152]1,"   tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  421. 4375 [152]1,"   zul. (NULL) = ";[183](zn),8,2;b3$[199](10)
  422. 4380 [152]1,"   peekewehrungsgehalt :"
  423. 4381 [152]1,"   tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  424. 4382 [152]1,"   mue    = ";[183](mue),8,2;" [%]"
  425. 4500 [129] w[178]1[164]2000:[130]:[156]:[137]150
  426. 4990 [143] ------------------------------
  427. 4991 [143] -       eingabemenue         -
  428. 4992 [143] ------------------------------
  429. 5000 [158] aus,5,7,"peekaustoffe :"
  430. 5010 [158] aus,5,8,"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  431. 5020 [158] aus,5,9,"peeketon      : peek";:[158] ein,2,e2$,a$
  432. 5025 be[178][197](a$)
  433. 5030 [139]be[178]15[176]be[178]25[176]be[178]35[176]be[178]45[176]be[178]55[167]5032
  434. 5031 [137]5020
  435. 5032 [139]be[178]15[167]br[178]10.5:[137]5040
  436. 5033 [139]be[178]25[167]br[178]17.5:[137]5040
  437. 5034 [139]be[178]35[167]br[178]23  :[137]5040
  438. 5035 [139]be[178]45[167]br[178]27  :[137]5040
  439. 5036 [139]be[178]55[167]br[178]30
  440. 5040 [158] aus,5,11,"peeketonstabstahl :"
  441. 5050 [158] aus,5,12,"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  442. 5055 [158] aus,5,13,"<1> => peek(NULL)t 220/340"
  443. 5060 [158] aus,5,14,"<2> => peek(NULL)t 420/500"
  444. 5070 [158] aus,5,15,"<3> => peek(NULL)t 500/550"
  445. 5080 [158] aus,5,17,"peekst : ";:[158] ein ,2,e2$,a$
  446. 5085 bs[178][197](a$)
  447. 5086 [139]bs[178]1[167]bs[178]220:[142]
  448. 5090 [139]bs[178]2[167]bs[178]420:[142]
  449. 5095 [139]bs[178]3[167]bs[178]500:[142]
  450. 5096 [137]5080
  451. 5100 [158] aus,5,7,"(NULL)uerschnitteingabe :"
  452. 5110 [158] aus,5,8,"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  453. 5120 [158] aus,5,9,"peekreite [cm]  b = ";:[158] ein,5,e2$,a$
  454. 5125 b[178][197](a$)
  455. 5130 [158] aus,5,10,"str$icke  [cm]  d = ";:[158] ein,5,e2$,a$
  456. 5135 d[178][197](a$)
  457. 5140 [158] aus,5,12,"peeketondeckung :"
  458. 5154 [158] aus,5,13,"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  459. 5155 [158] aus,5,14,"(NULL)tabdurchmesser <= 12mm =>c=1,0cm"
  460. 5156 [158] aus,5,15,"(NULL)tabdurchmesser 14-18mm =>c=1,5cm"
  461. 5157 [158] aus,5,16,"(NULL)tabdurchmesser 20-22mm =>c=2,0cm"
  462. 5158 [158] aus,5,17,"(NULL)tabdurchmesser 25-28mm =>c=2,5cm"
  463. 5159 [158] aus,5,18,"(NULL)tabdurchmesser >= 28mm =>c=3,0cm"
  464. 5160 [158] aus,5,20,"peeketondeckung    c [cm]  = ";:
  465. 5165 [158] ein,5,e2$,a$
  466. 5170 d1[178][197](a$)
  467. 5175 [142]
  468. 5200 [158] aus,5,6,"(NULL)chnittkraefte :"
  469. 5210 [158] aus,5,7,"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  470. 5215 [158] aus,5,8,"(NULL) ist als str$ruckkraft negativ":[153]"sys"
  471. 5217 [158] aus,12,9,"einzusetzen !!"
  472. 5220 [158] aus,5,11,"(NULL)ormalkraft (NULL) [k(NULL)] = ";:[158] ein,7,e2$,a$
  473. 5225 n[178][197](a$)
  474. 5230 [158] aus,5,13,"valingabe der valndmomente :"
  475. 5231 [158] aus,5,14,"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  476. 5232 [158] aus,5,15,"(NULL)omente vorzeichengerecht eingeben!"
  477. 5235 [158] aus,10,17,"(NULL)(NULL)2(NULL) > (NULL)(NULL)1(NULL) !!sys"
  478. 5240 [158] aus,5,19,"(NULL)2  [k(NULL)m] = ";:[158]ein,7,e2$,a$
  479. 5245 m2[178][197](a$):e1[178]m2
  480. 5250 [158] aus,5,21,"(NULL)1  [k(NULL)m] = ";:[158]ein,7,e2$,a$
  481. 5255 m1[178][197](a$):e2[178]m1
  482. 5260 [142]
  483. 5300 [158] aus,3,11,"(NULL)oll ein (NULL)nicksicherheitsnachweis"
  484. 5310 [158] aus,6,13,"durchgefuehrt werden (j/n) ?"
  485. 5320 [161]a$:[139]a$[178]""[167]5320
  486. 5325 [139]a$[178]"j"[167]ksn[178]1:[141]10050:[142]
  487. 5330 [139]a$[178]"n"[167]ksn[178]0:[142]
  488. 5340 [137]5320
  489. 5400 [139]b[179][177]0 [175] d[179][177]0[167] 182
  490. 5405 [137] 560 :[143] freie bemessung
  491. 5500 [141]10600:[141]10000
  492. 5502 [158] aus,5,12,"peekerechnung wurde wegen fehler-"
  493. 5505 [153]"      hafte valingaben abgebrochen !!"
  494. 5510 [129]w[178]1[164]3000:[130]:[138] 150
  495. 5600 [141]10000:[141]10600
  496. 5610 [158] aus,6,11,"peekerechnungen muessen mit dem"
  497. 5612 [158] aus,9,13,"kh-(NULL)erfahren ermittelt"
  498. 5614 [158] aus,15,15,"werden !!"
  499. 5616 [137]5510
  500. 9950 :
  501. 9951 [143] ------------------------------
  502. 9952 [143] -  unterprogrammbibliothek   -
  503. 9953 [143] ------------------------------
  504. 9954 :
  505. 9955 [143] ***  programmvorbereitung  ***
  506. 9956 :
  507. 9960 [143] cursor neu setzten
  508. 9961 [158] 49152,100
  509. 9963 [143] ***    print-at / input    ***
  510. 9965 ein [178]49488 : aus[178] 49712
  511. 9967 [143] ***       print-using      ***
  512. 9969 s[178]49752:[151]785,s[171]256[172][181](s[173]256):[151]786,s[173]256
  513. 9970 :
  514. 9980 e1$[178]"abcdefghijklmnopqrstuvwxyz"
  515. 9981 e2$[178]"+-1234567890."
  516. 9982 e3$[178]e1$[170]e2$[170]"atnpeeklenstr$valascchr$left$right$mid$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
  517. 9983 e4$[178]"0123"
  518. 9990 s[178]0:[142]
  519. 9992 [143] ------------------------------
  520. 9993 [143] -   bildschirmseitenaufbau   -
  521. 9994 [143] ------------------------------
  522. 9995 :
  523. 10000 [153] [199](14 )[199](147);
  524. 10002 [153]"sysor";:[129] z[178]1 [164] 38:[153]"tan";:[130]
  525. 10004 [153]"^(NULL)    (NULL)tahlbetonbemessung : (NULL)tuetzen    (NULL)";
  526. 10006 [153]"(NULL)    bei unverschieblichen (NULL)ystemen    (NULL)";
  527. 10008 [153]"/";:[129] z[178]1 [164] 38:[153]"tan";:[130]:[153]"exp"
  528. 10032 :[142]
  529. 10040 :
  530. 10041 [143] -----------------------------
  531. 10042 [143] -  knicksicherheitsnachweis -
  532. 10043 [143] -         schaubild         -
  533. 10044 [143] -----------------------------
  534. 10045 :
  535. 10050 [153][199](147);
  536. 10052 [153]"sysor";:[129] z[178]1 [164] 38:[153]"{$60}";:[130]
  537. 10054 [153]"^{$7d}    Stahlbetonbemessung : Stuetzen    {$7d}";
  538. 10056 [153]"{$7d}    bei unverschieblichen Systemen    {$7d}";
  539. 10058 [153]"/";:[129] z[178]1 [164] 38:[153]"{$60}";:[130]
  540. 10060 [153]"expor{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}=";:[129] z[178]1 [164] 21:[153]"{$60}";:[130]
  541. 10062 [153]"={$60}{$60}{$60}{$60}{$60}{$60}{$60}^{$7d}"[166]8)"{$7d} Auswahl des Systems:{$7d}"[166]7)"{$7d}";
  542. 10064 [153]"{$7d}"[166]8)"/";:[129] z[178]1 [164] 21:[153]"{$60}";:[130]
  543. 10066 [153]"exp"[166]7)"{$7d}{$7d}"[166]8)"*"[166]9)"{$60}={$60}"[166]9)"*"[166]7)"sys{$7d}";
  544. 10068 [153]"{$7d}"[166]8)"{$7d}"[166]10)"{$7d}"[166]10)"{$7d}"[166]7)"sys{$7d}";
  545. 10070 [153]"{$7d}"[166]8)"{$7d}"[166]10)"{$7d}"[166]10)"{$7d}"[166]7)"sys{$7d}";
  546. 10072 [153]"{$7d}"[166]8)"{$7d}"[166]10)"{$7d}"[166]10)"{$7d}"[166]7)"sys{$7d}";
  547. 10074 [153]"{$7d}"[166]8)"{$7d}"[166]10)"{$7d}"[166]10)"{$7d}"[166]7)"sys{$7d}";
  548. 10076 [153]"{$7d}"[166]8)"{$7d}"[166]10)"{$7d}"[166]10)"{$7d}"[166]7)"sys{$7d}";
  549. 10078 [153]"{$7d}"[166]8)"{$7d}"[166]10)"{$7d}"[166]10)"{$7d}"[166]7)"sys{$7d}";
  550. 10080 [153]"{$7d}"[166]8)"*"[166]9)"{$60}>{$60}"[166]8)"{$60}>{$60}"[166]6)"sys{$7d}";
  551. 10082 [153]"{$7d}"[166]7)"[1]"[166]8)"[2]"[166]8)"[3]"[166]6)"sys{$7d}";
  552. 10084 [153]"{$7d}"[166]38)"{$7d}{$7d}   beide Ecken  starr ein-  starr     sys{$7d}";
  553. 10086 [153]"{$7d}    gelenkig     gespannt  gelenkig   sys{$7d}";
  554. 10090 [153]"{$7d}"[166]38)"{$7d}-{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}={$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}<";
  555. 10092 [153]"(NULL)* (NULL)ahl des (NULL)ystems(NULL)(NULL)wischen   und   * (NULL)";
  556. 10094 [153]"/tantantantantantantantantantantantantantantantantantan>tantantantantantantantantantantantantantantantantantantanexp";:[153]"ononon";
  557. 10099 [153]""
  558. 10100 [158] aus,28,21," ";:
  559. 10101 [158] ein,2,e4$,a$
  560. 10105 a1[178][197](a$)
  561. 10110 [158] aus,34,21," ";:
  562. 10115 [158] ein,2,e4$,a$
  563. 10120 a2[178][197](a$)
  564. 10125 s1[178]1:s2[178].5:s3[178].7
  565. 10130 [142]
  566. 10590 :
  567. 10591 [143] -----------------------------
  568. 10592 [143] -        alarmton           -
  569. 10593 [143] -----------------------------
  570. 10594 :
  571. 10600 [151]54296,13:[151]54277,25
  572. 10605 [151]54278,68
  573. 10610 [151]54273,99:[151]54272,100:[151]54276,33
  574. 10615 [129]t[178]1[164]220:[130]
  575. 10620 [151]54276,0:[142]
  576. 10700 :
  577. 10701 [143] -----------------------------
  578. 10702 [143] -   literaturverzeichnis    -
  579. 10703 [143] -----------------------------
  580. 10704 :
  581. 10705 [143] "(NULL)ommelsdorf
  582. 10706 rem "[211]tahlbetonbau [212]eil 2
  583. 10707 [143] "(NULL)erner right$ngenieur (NULL)exte (NULL)right$(NULL)16
  584. 10708 rem " 4.[193]uflage 1986
  585. 10709 :
  586. 10710 [143] "(NULL)endehorst/(NULL)uth
  587. 10711 rem "[194]autechnische [218]ahlentafeln
  588. 10712 [143] "peek.chr$.(NULL)eubner (NULL)erlag
  589. 10713 rem "21.[193]uflage
  590.